Public NotInheritable Class SplashBiblioteca

    'TODO: Este formulario se puede establecer fácilmente como pantalla de bienvenida para la aplicación desde la ficha "Aplicación"
    '  del Diseñador de proyectos ("Propiedades" bajo el menú "Proyecto").


    Private Sub SplashBiblioteca_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim efectos As New ClaseGolosinaVisual
        efectos.FadeIn(Me, 500, 300)
    End Sub


    Private Sub MainLayoutPanel_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MainLayoutPanel.Paint
        Dim conexion As New SqlClient.SqlConnection(My.Settings.cadenaConexion)
        Try
            conexion.Open()
            Dim comando As New SqlClient.SqlCommand

            With comando
                .CommandText = "prestamos_actualizarMorosos"
                .CommandType = CommandType.StoredProcedure
                .Connection = conexion
            End With
            comando.ExecuteNonQuery()
            conexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class
